* net/shr.el (shr-colorize-region):

Don't do it on a system not supporting 256 above colors (bug#21557).

diff --git a/lisp/net/shr.el b/lisp/net/shr.el
index fb450e8a95e666caa61a898c939ad5fe37068035..ebc8ab3327f7503ac7d22bf24713980f75fcf9b5 100644 (file)
--- a/lisp/net/shr.el
+++ b/lisp/net/shr.el
@@ -1042,7 +1042,7 @@ ones, in case fg and bg are nil."
                (shr-color-visible bg fg)))))))
 
 (defun shr-colorize-region (start end fg &optional bg)
-  (when (or fg bg)
+  (when (and (or fg bg) (>= (display-color-cells) 256))
     (let ((new-colors (shr-color-check fg bg)))
       (when new-colors
        (when fg